home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / vol6n19.arc / SAFARI.BAS < prev    next >
BASIC Source File  |  1987-10-31  |  13KB  |  190 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE safari.COM
  2. 110 OPEN "safari.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  169 
  6. 150    LINESUM = 0
  7. 155    PRINT ".";
  8. 160    FOR J = 1 TO 8
  9. 170       READ BYTE
  10. 180       CHECKSUM = CHECKSUM + BYTE
  11. 190       LINESUM = LINESUM + BYTE
  12. 200       IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
  13. 210       PUT #1
  14. 220    NEXT J
  15. 230    READ LINECHECK
  16. 240    IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
  17. 250 NEXT I
  18. 260 CLOSE
  19. 270 IF CHECKSUM = 119555 THEN PRINT "Successful Completion!" : END
  20. 280 PRINT "COM file is not valid!" : END
  21. 290 DATA    233,   250,     4,    83,    65,    70,    65,    82,   852
  22. 300 DATA     73,    32,    49,    46,    48,    32,    40,    99,   419
  23. 310 DATA     41,    32,    90,   105,   102,   102,    32,    67,   571
  24. 320 DATA    111,   109,   109,   117,   110,   105,    99,    97,   857
  25. 330 DATA    116,   105,   111,   110,   115,    32,    67,   111,   767
  26. 340 DATA     46,    36,    82,   111,    98,   101,   114,   116,   704
  27. 350 DATA     32,    76,    46,    32,    72,   117,   109,   109,   593
  28. 360 DATA    101,   108,     0,     0,     0,     0,     0,     0,   209
  29. 370 DATA      0,     0,     0,     0,     0,     0,     0,     4,     4
  30. 380 DATA     60,    60,    32,    83,    65,    70,    65,    82,   517
  31. 390 DATA     73,    32,    67,   114,   105,   116,   105,    99,   711
  32. 400 DATA     97,   108,    32,    69,   114,   114,   111,   114,   759
  33. 410 DATA     32,    72,    97,   110,   100,   108,   101,   114,   734
  34. 420 DATA     32,    62,    62,     0,     1,     5,    83,   121,   366
  35. 430 DATA    115,   116,   101,   109,    32,    82,   101,   112,   768
  36. 440 DATA    111,   114,   116,   115,    32,    65,    32,    68,   653
  37. 450 DATA    105,   115,   107,    32,    69,   114,   114,   111,   767
  38. 460 DATA    114,     0,     1,     5,    83,   121,   115,   116,   555
  39. 470 DATA    101,   109,    32,    82,   101,   112,   111,   114,   762
  40. 480 DATA    116,   115,    32,    65,    32,    67,   104,    97,   628
  41. 490 DATA    114,    97,    99,   116,   101,   114,    32,    68,   741
  42. 500 DATA    101,   118,   105,    99,   101,    32,    69,   114,   739
  43. 510 DATA    114,   111,   114,     0,     1,     5,    83,   121,   549
  44. 520 DATA    115,   116,   101,   109,    32,    82,   101,   112,   768
  45. 530 DATA    111,   114,   116,   115,    32,    65,    32,    66,   651
  46. 540 DATA     97,   100,    32,    70,    65,    84,     0,   233,   681
  47. 550 DATA      1,    24,     2,    46,     2,    64,     2,    82,   223
  48. 560 DATA      2,   101,     2,   132,     2,   145,     2,   166,   552
  49. 570 DATA      2,   185,     2,   208,     2,   222,     2,   235,   858
  50. 580 DATA      2,     1,     6,    65,   116,   116,   101,   109,   516
  51. 590 DATA    112,   116,    32,    84,   111,    32,    87,   114,   688
  52. 600 DATA    105,   116,   101,    32,    79,   110,    32,    87,   662
  53. 610 DATA    114,   105,   116,   101,    45,    80,   114,   111,   786
  54. 620 DATA    116,   101,    99,   116,   101,   100,    32,    68,   733
  55. 630 DATA    105,   115,   107,   101,   116,   116,   101,     0,   761
  56. 640 DATA      1,     6,    85,   110,   107,   110,   111,   119,   649
  57. 650 DATA    110,    32,    79,   114,    32,    66,    97,   100,   630
  58. 660 DATA     32,    85,   110,   105,   116,     0,     1,     6,   455
  59. 670 DATA     68,   114,   105,   118,   101,    32,    78,   111,   727
  60. 680 DATA    116,    32,    82,   101,    97,   100,   121,     0,   649
  61. 690 DATA      1,     6,    85,   110,   107,   110,   111,   119,   649
  62. 700 DATA    110,    32,    67,   111,   109,   109,    97,   110,   745
  63. 710 DATA    100,     0,     1,     6,    68,    97,   116,    97,   485
  64. 720 DATA     32,    69,   114,   114,   111,   114,    32,    40,   626
  65. 730 DATA     67,    82,    67,    41,     0,     1,     6,    66,   330
  66. 740 DATA     97,   100,    32,    82,   101,   113,   117,   101,   743
  67. 750 DATA    115,   116,    32,    83,   116,   114,   117,    99,   792
  68. 760 DATA    116,   117,   114,   101,    32,    76,   101,   110,   767
  69. 770 DATA    103,   116,   104,     0,     1,     6,    83,   101,   514
  70. 780 DATA    101,   107,    32,    69,   114,   114,   111,   114,   762
  71. 790 DATA      0,     1,     6,    85,   110,   107,   110,   111,   530
  72. 800 DATA    119,   110,    32,   109,   101,   100,   105,    97,   773
  73. 810 DATA     32,   116,   121,   112,   101,     0,     1,     6,   489
  74. 820 DATA     83,   101,    99,   116,   111,   114,    32,    78,   734
  75. 830 DATA    111,   116,    32,    70,   111,   117,   110,   100,   767
  76. 840 DATA      0,     1,     6,    80,   114,   105,   110,   116,   532
  77. 850 DATA    101,   114,    32,    79,   117,   116,    32,    79,   670
  78. 860 DATA    102,    32,    80,    97,   112,   101,   114,     0,   638
  79. 870 DATA      1,     6,    87,   114,   105,   116,   101,    32,   562
  80. 880 DATA     70,    97,   117,   108,   116,     0,     1,     6,   515
  81. 890 DATA     82,   101,    97,   100,    32,    70,    97,   117,   696
  82. 900 DATA    108,   116,     0,     1,     6,    71,   101,   110,   513
  83. 910 DATA    101,   114,    97,   108,    32,    70,    97,   105,   724
  84. 920 DATA    108,   117,   114,   101,     0,     1,     7,    79,   527
  85. 930 DATA    110,    32,    68,   114,   105,   118,   101,    32,   680
  86. 940 DATA     65,    58,     0,     1,     8,    68,   117,   114,   431
  87. 950 DATA    105,   110,   103,    32,    65,    32,    82,   101,   630
  88. 960 DATA     97,   100,    32,    79,   112,   101,   114,    97,   732
  89. 970 DATA    116,   105,   111,   110,     0,     1,     8,    68,   519
  90. 980 DATA    117,   114,   105,   110,   103,    32,    65,    32,   678
  91. 990 DATA     87,   114,   105,   116,   101,    32,    79,   112,   746
  92. 1000 DATA   101,   114,    97,   116,   105,   111,   110,     0,   754
  93. 1010 DATA     1,     9,    69,   114,   114,   111,   114,    32,   564
  94. 1020 DATA    76,   111,    99,    97,   108,   105,   122,   101,   819
  95. 1030 DATA   100,    32,    73,   110,     0,    93,     3,   104,   515
  96. 1040 DATA     3,   128,     3,   145,     3,     1,    10,    68,   361
  97. 1050 DATA    79,    83,    32,    65,   114,   101,    97,     0,   571
  98. 1060 DATA     1,    10,    70,   105,   108,   101,    32,    65,   492
  99. 1070 DATA   108,   108,   111,    99,    97,   116,   105,   111,   855
  100. 1080 DATA   110,    32,    84,    97,    98,   108,   101,     0,   630
  101. 1090 DATA     1,    10,    68,   105,   114,   101,    99,   116,   614
  102. 1100 DATA   111,   114,   121,    32,    65,   114,   101,    97,   755
  103. 1110 DATA     0,     1,    10,    68,    97,   116,    97,    32,   421
  104. 1120 DATA    65,   114,   101,    97,     0,     1,    12,    65,   455
  105. 1130 DATA    88,    61,    48,    48,    48,    48,    32,    66,   439
  106. 1140 DATA    88,    61,    48,    48,    48,    48,    32,    67,   440
  107. 1150 DATA    88,    61,    48,    48,    48,    48,    32,    68,   441
  108. 1160 DATA    88,    61,    48,    48,    48,    48,     0,     1,   342
  109. 1170 DATA    13,    68,    83,    61,    48,    48,    48,    48,   417
  110. 1180 DATA    32,    83,    73,    61,    48,    48,    48,    48,   441
  111. 1190 DATA    32,    69,    83,    61,    48,    48,    48,    48,   437
  112. 1200 DATA    32,    68,    73,    61,    48,    48,    48,    48,   426
  113. 1210 DATA     0,     1,    14,    67,    83,    58,    73,    80,   376
  114. 1220 DATA    61,    48,    48,    48,    48,    58,    48,    48,   407
  115. 1230 DATA    48,    48,     0,   251,    80,    30,   142,   221,   820
  116. 1240 DATA   139,    68,     4,    46,   136,    38,    69,     1,   501
  117. 1250 DATA    31,    88,    85,   139,   236,    46,   163,    67,   855
  118. 1260 DATA     1,    46,   137,    62,    65,     1,   156,     6,   474
  119. 1270 DATA    30,    87,    86,    82,    81,    83,    80,   140,   669
  120. 1280 DATA   200,   142,   216,   142,   192,   180,    15,   205,  1292
  121. 1290 DATA    16,   136,    62,    58,     1,   180,     3,   205,   661
  122. 1300 DATA    16,   137,    22,    59,     1,   138,    62,    58,   493
  123. 1310 DATA     1,   252,   191,   253,     5,   185,    15,     0,   902
  124. 1320 DATA   182,     4,    81,   185,    46,     0,   178,     0,   676
  125. 1330 DATA   180,     2,   205,    16,   180,     8,   205,    16,   812
  126. 1340 DATA   171,   254,   194,   226,   243,    89,   254,   198,  1629
  127. 1350 DATA   226,   232,   180,     6,   176,     0,   181,     4,  1005
  128. 1360 DATA   177,     0,   182,    18,   178,    45,   183,    79,   862
  129. 1370 DATA   205,    16,   190,    70,     1,   232,   119,     1,   834
  130. 1380 DATA   190,   108,     1,   246,     6,    68,     1,   128,   748
  131. 1390 DATA   116,    13,   190,   138,     1,   246,     6,    69,   779
  132. 1400 DATA     1,   128,   117,    55,   190,   180,     1,   232,   904
  133. 1410 DATA    93,     1,   160,    67,     1,     4,    65,   162,   553
  134. 1420 DATA     8,     3,   190,   253,     2,   232,    79,     1,   768
  135. 1430 DATA   190,    11,     3,   246,     6,    68,     1,     1,   526
  136. 1440 DATA   116,     3,   190,    37,     3,   232,    63,     1,   645
  137. 1450 DATA   190,    64,     3,   232,    57,     1,    50,   255,   852
  138. 1460 DATA   138,    30,    68,     1,   128,   227,     6,   139,   737
  139. 1470 DATA   183,    85,     3,   232,    41,     1,    50,   255,   850
  140. 1480 DATA   138,    30,    65,     1,   209,   227,   139,   183,   992
  141. 1490 DATA   207,     1,   232,    26,     1,   191,   162,     3,   823
  142. 1500 DATA   139,    70,     8,   232,   234,     0,   131,   199,  1013
  143. 1510 DATA     8,   139,    70,    10,   232,   225,     0,   131,   815
  144. 1520 DATA   199,     8,   139,    70,    12,   232,   216,     0,   876
  145. 1530 DATA   131,   199,     8,   139,    70,    14,   232,   207,  1000
  146. 1540 DATA     0,   190,   157,     3,   232,   240,     0,   191,  1013
  147. 1550 DATA   196,     3,   139,    70,    22,   232,   192,     0,   854
  148. 1560 DATA   131,   199,     8,   139,    70,    16,   232,   183,   978
  149. 1570 DATA     0,   131,   199,     8,   139,    70,    24,   232,   803
  150. 1580 DATA   174,     0,   131,   199,     8,   139,    70,    18,   739
  151. 1590 DATA   232,   165,     0,   190,   191,     3,   232,   198,  1211
  152. 1600 DATA     0,   191,   233,     3,   139,    70,    28,   232,   896
  153. 1610 DATA   150,     0,   131,   199,     5,   139,    70,    26,   720
  154. 1620 DATA   232,   141,     0,   190,   225,     3,   232,   174,  1197
  155. 1630 DATA     0,   138,    62,    58,     1,   182,    16,   178,   635
  156. 1640 DATA     0,   180,     2,   205,    16,    88,    91,    89,   671
  157. 1650 DATA    90,    94,    95,    31,     7,   157,    93,   156,   723
  158. 1660 DATA   250,    14,   191,    93,     5,    87,    46,   139,   825
  159. 1670 DATA    62,    65,     1,     0,     0,     0,     0,     0,   128
  160. 1680 DATA    46,   255,    46,    61,     1,   156,     6,    30,   601
  161. 1690 DATA    85,    87,    86,    82,    81,    83,    80,   140,   724
  162. 1700 DATA   200,   142,   216,   142,   192,   138,    62,    58,  1150
  163. 1710 DATA     1,   180,     2,   182,     4,   178,     0,   205,   752
  164. 1720 DATA    16,   190,   253,     5,   185,    15,     0,   182,   846
  165. 1730 DATA     4,    81,   185,    46,     0,   178,     0,    81,   575
  166. 1740 DATA   180,     2,   205,    16,   173,   138,   220,   180,  1114
  167. 1750 DATA     9,   185,     1,     0,   205,    16,   254,   194,   864
  168. 1760 DATA    89,   226,   236,    89,   254,   198,   226,   225,  1543
  169. 1770 DATA   180,     2,   139,    22,    59,     1,   205,    16,   624
  170. 1780 DATA    88,    91,    89,    90,    94,    95,    93,    31,   671
  171. 1790 DATA     7,   157,   207,    85,   205,    16,    93,   195,   965
  172. 1800 DATA    80,    83,    81,   139,   216,   253,   131,   199,  1182
  173. 1810 DATA     3,   185,     4,     0,   138,   195,    36,    15,   576
  174. 1820 DATA     4,   144,    39,    20,    64,    39,   170,   209,   689
  175. 1830 DATA   235,   209,   235,   209,   235,   209,   235,   226,  1793
  176. 1840 DATA   235,    89,    91,    88,    71,   252,   195,    83,  1104
  177. 1850 DATA    82,    86,   138,    62,    58,     1,   139,    20,   586
  178. 1860 DATA   180,     2,   205,    16,    70,    70,   172,    10,   725
  179. 1870 DATA   192,   116,     6,   180,    14,   205,    16,   235,   964
  180. 1880 DATA   245,    94,    90,    91,   195,   180,     9,   186,  1090
  181. 1890 DATA     3,     1,   205,    33,   180,    53,   176,    36,   687
  182. 1900 DATA   205,    33,    38,   128,    63,   234,   117,     5,   823
  183. 1910 DATA   184,     1,    76,   205,    33,   137,    30,    61,   727
  184. 1920 DATA     1,   140,     6,    63,     1,   185,     5,     0,   401
  185. 1930 DATA     6,    31,   139,   243,    14,     7,   191,    83,   714
  186. 1940 DATA     5,   243,   164,    30,     7,   139,   251,   176,  1015
  187. 1950 DATA   234,   170,   184,   243,     3,   171,   140,   200,  1345
  188. 1960 DATA   171,    46,   131,     6,    61,     1,     5,   184,   605
  189. 1970 DATA     0,    49,   186,   183,     0,   205,    33,     0,   656
  190.